Imports CapaDeNegocios
Partial Public Class FrmAsignaTalonarioOperABM
    Inherits System.Web.UI.Page
    Public Personal As CapaDeNegocios.nPersonal = New CapaDeNegocios.nPersonal()
    Public Talonario As CapaDeNegocios.nTalonario = New CapaDeNegocios.nTalonario()
    Public TipoTalonario As CapaDeNegocios.nTipoTalonario = New CapaDeNegocios.nTipoTalonario()
    Public Asignaciones As nAsignacionesDeRemitos = New CapaDeNegocios.nAsignacionesDeRemitos()
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            LimpiarCampos()
            LLenarCboOperador()
            LLenarCboTipoTalonario()
            LLenarCboTalonarios()
        End If
    End Sub

    Sub LimpiarCampos()
        GridAsignaciones.DataSource = Asignaciones.BuscarFiltrado("", "", "", "", "")
        GridAsignaciones.DataBind()
        HFId.Value = ""
        BDPFechaAlta.Enabled = True
        BDPFechaVencimiento.Enabled = True
        BDPFechaAlta.SelectedValue = ""
        BDPFechaVencimiento.SelectedValue = ""
        BDPFechaVencimiento.MinimumDate = Now.Date.ToShortDateString()
        BDPFechaVencimiento.MaximumDate = (Now.Date.AddDays(365 * 30)).ToShortDateString()

        '        TxtFechaAlta.Text = ""
        '        TxtFechaVencimiento.Text = ""
        '        TxtFechaVencimiento.Enabled = True
        CboTalonario.Enabled = True
        '        TxtFechaAlta.Enabled = True
        CboTipoTalonario.Enabled = True
        CboOperador.Enabled = True
        GridAsignaciones.SelectedIndex = -1

        '        RVFechaVencimiento.MinimumValue = Now.Date.ToShortDateString()
        '        RVFechaVencimiento.MaximumValue = (Now.Date.AddDays(365 * 30)).ToShortDateString()

    End Sub
    Sub LLenarCboOperador()
        CboOperador.Items.Clear()
        CboOperador.Items.Add(New ListItem("Ninguno...", -1))
        CboOperador.DataSource = Personal.ListarNombres(0, "")
        CboOperador.DataTextField = "NombreApellido"
        CboOperador.DataValueField = "Legajo"
        CboOperador.DataBind()
        If CboOperador.Items.Count > 1 Then
            CboOperador.SelectedIndex = 1
        End If
        CboOperador.Items(1).Enabled = False
    End Sub
    Sub LLenarCboTipoTalonario()
        CboTipoTalonario.Items.Clear()
        CboTipoTalonario.Items.Add(New ListItem("Ninguno...", -1))
        CboTipoTalonario.DataSource = TipoTalonario.DescripcionLetra("")
        CboTipoTalonario.DataTextField = "DescripcionLetra"
        CboTipoTalonario.DataValueField = "idTipoTalonario"
        CboTipoTalonario.DataBind()
        If CboTipoTalonario.Items.Count > 1 Then
            CboTipoTalonario.SelectedIndex = 1
        End If
    End Sub

    Sub LLenarCboTalonarios()
        CboTalonario.Items.Clear()
        CboTalonario.Items.Add(New ListItem("Ninguno...", -1))
        CboTalonario.DataSource = Talonario.BuscarFiltrado("", "", "", "", "", "3", CboTipoTalonario.SelectedValue.ToString())
        CboTalonario.DataTextField = "Rango"
        CboTalonario.DataValueField = "idTalonario"
        CboTalonario.DataBind()
        If CboTalonario.Items.Count > 1 Then
            CboTalonario.SelectedIndex = 1
        End If
    End Sub

    Sub LLenarGrid()
        Dim Talonario As String
        Dim Operador As String
        Talonario = CboTalonario.SelectedValue.ToString()
        Operador = CboOperador.SelectedValue.ToString()
        If CboOperador.SelectedValue = -1 Then
            Operador = ""
        End If
        If CboTalonario.SelectedValue = -1 Then
            Talonario = ""
        End If
        'GridAsignaciones.DataSource = Asignaciones.BuscarFiltrado("", TxtFechaAlta.Text, TxtFechaVencimiento.Text, Talonario, Operador)
        GridAsignaciones.DataSource = Asignaciones.BuscarFiltrado("", BDPFechaAlta.Text, BDPFechaVencimiento.Text, Talonario, Operador)

        GridAsignaciones.DataBind()
    End Sub

    Protected Sub CboTipoTalonario_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboTipoTalonario.SelectedIndexChanged
        LLenarCboTalonarios()
    End Sub

    Protected Sub LnkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkGuardar.Click
        If (HFId.Value = "") Then
            Asignaciones.Insertar(CboTalonario.SelectedValue.ToString(), CboOperador.SelectedValue.ToString())
            LLenarCboTalonarios()
            LimpiarCampos()
        Else
            '            Asignaciones.Modificar(HFId.Value.ToString(), TxtFechaAlta.Text, TxtFechaVencimiento.Text, CboTalonario.SelectedValue.ToString(), CboOperador.SelectedValue.ToString())
            Asignaciones.Modificar(HFId.Value.ToString(), BDPFechaAlta.Text, BDPFechaVencimiento.Text, CboTalonario.SelectedValue.ToString(), CboOperador.SelectedValue.ToString())
            LLenarCboTalonarios()
            LimpiarCampos()
        End If
    End Sub

    Protected Sub GridAsignaciones_RowCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridAsignaciones.RowCommand
        If e.CommandName = "Select" Then
            HFId.Value = e.CommandSource.Parent.FindControl("HFIdAsignaciones").value
            BDPFechaAlta.SelectedValue = e.CommandSource.Parent.Parent.FindControl("LblFechaAlta").text
            BDPFechaVencimiento.SelectedValue = e.CommandSource.Parent.Parent.FindControl("LblFechaBaja").text
            CboOperador.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFIdOperador").value
            CboTipoTalonario.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFIdTipoTalonario").value
            CboTalonario.Items.Add(New ListItem(e.CommandSource.Parent.Parent.FindControl("LblNumeracion").Text, e.CommandSource.Parent.Parent.FindControl("HFIdTalonario").value))
            CboTalonario.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFIdTalonario").value
            BDPFechaVencimiento.Enabled = False
            BDPFechaAlta.Enabled = False
            CboTalonario.Enabled = False
            CboTipoTalonario.Enabled = False
            CboOperador.Enabled = False
        End If
    End Sub

    Protected Sub LnkEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkEliminar.Click
        If (HFId.Value <> "" And BDPFechaVencimiento.Text = "") Then
            Asignaciones.Eliminar(HFId.Value.ToString(), CboTalonario.SelectedValue.ToString())
        End If
        LLenarCboTalonarios()
        LimpiarCampos()
    End Sub
    Protected Sub LnkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkCancelar.Click
        LLenarCboTalonarios()
        LimpiarCampos()
    End Sub

    Protected Sub LnkBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkBuscar.Click
        LLenarGrid()
    End Sub
End Class